home *** CD-ROM | disk | FTP | other *** search
- object LogOptionsForm: TLogOptionsForm
- Left = 451
- Top = 108
- BorderStyle = bsDialog
- Caption = 'TechFacts 95 Logging Options Form'
- ClientHeight = 361
- ClientWidth = 485
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object OKBtn: TButton
- Left = 324
- Top = 330
- Width = 75
- Height = 25
- Caption = '&Ok'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = OKBtnClick
- end
- object CancelBtn: TButton
- Left = 404
- Top = 330
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 1
- OnClick = CancelBtnClick
- end
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 473
- Height = 313
- ActivePage = TabSheet2
- TabOrder = 2
- object TabSheet1: TTabSheet
- Caption = '&Options'
- object RadioGroup1: TRadioGroup
- Left = 0
- Top = 0
- Width = 465
- Height = 33
- Align = alTop
- Caption = 'Logging is'
- Columns = 2
- ItemIndex = 0
- Items.Strings = (
- 'Not Active'
- 'Active')
- TabOrder = 0
- end
- object RadioGroup2: TRadioGroup
- Left = 0
- Top = 33
- Width = 465
- Height = 56
- Align = alTop
- Caption = 'Logging Schema'
- Columns = 2
- ItemIndex = 0
- Items.Strings = (
- 'Using Timer'
- 'When Processes Start or End'
- 'On Startup Only')
- TabOrder = 1
- OnClick = RadioGroup2Click
- end
- object GroupBox3: TGroupBox
- Left = 0
- Top = 137
- Width = 465
- Height = 100
- Align = alTop
- Caption = 'What to log'
- TabOrder = 2
- object CheckBox3: TCheckBox
- Left = 8
- Top = 16
- Width = 161
- Height = 17
- Caption = 'List of Processes'
- TabOrder = 0
- end
- object CheckBox4: TCheckBox
- Left = 8
- Top = 32
- Width = 169
- Height = 17
- Caption = 'GDI Resource Level'
- TabOrder = 1
- end
- object CheckBox5: TCheckBox
- Left = 8
- Top = 48
- Width = 161
- Height = 17
- Caption = 'USER Resource Level'
- TabOrder = 2
- end
- object CheckBox6: TCheckBox
- Left = 8
- Top = 64
- Width = 161
- Height = 17
- Caption = 'Memory Level'
- TabOrder = 3
- end
- object CheckBox7: TCheckBox
- Left = 8
- Top = 80
- Width = 185
- Height = 17
- Caption = 'Performance Data'
- TabOrder = 4
- end
- object CheckBox8: TCheckBox
- Left = 240
- Top = 16
- Width = 193
- Height = 17
- Caption = 'Local Disk Levels'
- TabOrder = 5
- end
- object CheckBox9: TCheckBox
- Left = 240
- Top = 32
- Width = 193
- Height = 17
- Caption = 'Remote Disk Levels'
- TabOrder = 6
- end
- object CheckBox13: TCheckBox
- Left = 240
- Top = 48
- Width = 201
- Height = 17
- Caption = 'Process Start - Process\DLL Details'
- TabOrder = 7
- end
- object CheckBox14: TCheckBox
- Left = 240
- Top = 64
- Width = 185
- Height = 17
- Caption = 'Process Heap Usage'
- TabOrder = 8
- end
- end
- object GroupBox4: TGroupBox
- Left = 0
- Top = 89
- Width = 465
- Height = 48
- Align = alTop
- Caption = 'Timed Log Settings'
- TabOrder = 3
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 73
- Height = 17
- Caption = 'Log every:'
- end
- object Label3: TLabel
- Left = 160
- Top = 16
- Width = 81
- Height = 13
- Caption = 'minutes'
- end
- object SpinEdit1: TSpinEdit
- Left = 100
- Top = 14
- Width = 49
- Height = 22
- MaxValue = 1800
- MinValue = 1
- TabOrder = 0
- Value = 60
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = '&Log File'
- object GroupBox2: TGroupBox
- Left = 0
- Top = 0
- Width = 465
- Height = 143
- Align = alTop
- Caption = 'Log File'
- TabOrder = 0
- object Label2: TLabel
- Left = 8
- Top = 16
- Width = 89
- Height = 17
- Caption = 'File Location:'
- end
- object ExplorerButton1: TExplorerButton
- Left = 434
- Top = 13
- Width = 25
- Height = 25
- Hint = 'Browse for a file location'
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000C40E00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555550000000000
- 5555500B8B8B8B8B055550F0B8B8B8B8B05550BF0B8B8B8B8B0550FBF0000000
- 000550BFBFBFBFB0555550FBFBFBFBF0555550BFBFBF00055555550BFBF05555
- 5555557000075555555555555555555555555555555555555555}
- Caption = 'ExplorerButton'
- Options = [boMonoDisplay, boIconOnly, boPopupMark, boShowBevel]
- OnClick = ExplorerButton1Click
- ParentShowHint = False
- ShowHint = True
- end
- object Label5: TLabel
- Left = 296
- Top = 52
- Width = 12
- Height = 13
- Caption = 'kb'
- end
- object Edit1: TEdit
- Left = 92
- Top = 13
- Width = 337
- Height = 21
- TabOrder = 0
- end
- object CheckBox15: TCheckBox
- Left = 8
- Top = 50
- Width = 177
- Height = 17
- Caption = 'Check maximum log file size:'
- TabOrder = 1
- end
- object SpinEdit2: TSpinEdit
- Left = 192
- Top = 49
- Width = 97
- Height = 22
- Increment = 10
- MaxValue = 1000000
- MinValue = 0
- TabOrder = 2
- Value = 100
- end
- object RadioGroup3: TRadioGroup
- Left = 8
- Top = 80
- Width = 449
- Height = 57
- Caption = 'When maximum file size exceeded'
- ItemIndex = 0
- Items.Strings = (
- 'Delete log file - new file will be created automatically'
- 'Create new log file with incremented extension, ie: 001, 002')
- TabOrder = 3
- end
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 143
- Width = 465
- Height = 130
- Align = alTop
- Caption = 'Log Style'
- TabOrder = 1
- object Label4: TLabel
- Left = 8
- Top = 20
- Width = 47
- Height = 13
- Caption = 'Log Style:'
- end
- object RadioButton1: TRadioButton
- Left = 72
- Top = 18
- Width = 113
- Height = 17
- Caption = 'Standard Log'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = CheckStyles
- end
- object RadioButton2: TRadioButton
- Left = 208
- Top = 18
- Width = 113
- Height = 17
- Caption = 'Report Style'
- TabOrder = 1
- OnClick = CheckStyles
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 40
- Width = 201
- Height = 17
- Caption = 'Seperate fields w\commas'
- TabOrder = 2
- end
- object CheckBox11: TCheckBox
- Left = 8
- Top = 56
- Width = 193
- Height = 17
- Caption = 'Add Field Descriptors'
- State = cbChecked
- TabOrder = 3
- end
- object CheckBox10: TCheckBox
- Left = 8
- Top = 73
- Width = 217
- Height = 17
- Caption = 'Each log field on a seperate log line'
- State = cbChecked
- TabOrder = 4
- end
- object CheckBox12: TCheckBox
- Left = 240
- Top = 56
- Width = 217
- Height = 17
- Caption = 'Clear the log file before adding entries'
- TabOrder = 5
- end
- object CheckBox2: TCheckBox
- Left = 240
- Top = 40
- Width = 161
- Height = 17
- Caption = 'Include user id'
- State = cbChecked
- TabOrder = 6
- end
- end
- end
- end
- object OpenFile1: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'log files|*.log|ini files|*.ini|text files|*.txt|all files|*.*'
- Left = 280
- Top = 336
- end
- end
-